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3+ 

: FACILITY: 

; LABIO demonstation system 

> ABSTRACT: 

; This module contains the 1/0 code for handling 

3 an AD11-K. it is an example of a connect-to interrupt 
; routine. This module contains code to perform the following 
: The start 1/0 routine 

: The interrupt service routine 

; The cancel 1/0 routine 

+ AUTHOR: 
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-SBTTL DATA STRUCTURES 
-PSECT LABIO_SECTION PIC,OVR,REL,GBL,SHR,NOEXE,RD,WRT,LONG 
; The he ly, data structures are also defined by a 
; FORTRAN INCLUDE file. These definitions must agree. 
; AD_BLOCK A/D Control Block 
MAX_AD_CHANNEL = 16 zsNumber of A/D channels 


AD_BLOCK_SLOTS = 16 ;number of entries in one block 
AD-BLOCKSIZE = MAX_AD_CHANNEL*AD_BLOCK SLOTS 


;AD_BLOCK offsets (long words) 


AD_STATUS = 0 sSTATUS (Unknown, inactive, or active ) 
ACTIVE L= 2 3; ACTIVE 
INACTIVE_L = 1 : INACTIVE 
PID = 4 ; PID of connected process 
TICS. SAMPLE = 8 ; Rate in tics/sample 
BUFFER_SIZE = 12 ; User specified buffer size 
BUF FER_COUNT = 16 ; User specified buffer count 
BUFFER_ACQ = 20 ; Number of buffers acquired 
VALID_BUF_IND = 24 3 Index of current valid data buffer 
VALID BUF COUNT = $8 ; Number of data points in last buffer 
R_BOF_IND = 32 ; Index to current acq. buffer 

BUF COUNT = 36 3; Number of data points in last buffer 
TICS REMAINING = 40 ; Tics remaining to next sample 
CUR_ACQ_OFF = 44 ; Offset to acq point 
AD_6LOCR_END = 64 ; Offset to end of a block 
AD_BLOCK: -BLKL AD_BLOCK_SIZE 
; DATA_BUFFER Data buffers for LABIO 
MAX_BUF_COUNT = 2 Number buf fers/channel 
MAX_BUF SIZE = 512 Maximum buffer size (WORDS) 
BUF FER_END = MAX_BUF _COUNT*MAX_BUF _SIZE*2 ; Size of one set of buffers 


DATA_BUF SIZE = MAX_AD_CHANNEL *MAX_BUF_SIZE*MAX_BUF_COUNT 
DATA_BUFFER: -BLKQ “DATA_BUF_SIZE 


DATA_BUFFER_OFF = DATA_BUFFER-AD_BLOCK ;Offset to data buffer from 
zsbeginning of data structure 


; CONNECT_BLOCK Process Connect contro! block 
MAX_PID = 16 ;Max number of processes connected 
CONNECT_SIZE = MAX_PID*2 

CONNECT BLOCK: .BLKL CONNECT_SIZE 
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Page 4 
-SBTTL 1/0 DEVICES 
:This section defines the constants asocciated with the KwW11-K clock 
band the AD11-K A/D converter 
7KW11-K Cloc 
CSR bit 235 jgnments 
kW 1$M_G 1 3G0 bit 
KWIISM_RATE = “02 sRate = bits 2-4 
KW11SM_INTENB | = *0100 Interrupt enable 
KWi1SM_READY = “0200 :Ready bit 
KW11SM_REPINT = *0400 srepeated interuupts 
KW11_CSR_CONS = KW11SM_REPINT!KW11$M_INTENB!<1*KW11$M_RATE> 
sRepeated interrupts. ,interrupt enable 
Rate = 
KW11_PRESET = 1000. ;Preset => Interrupt rate of 1 KHz 
KW11_A_BUFFER = “02 sO0ffset to clock . preset buffer 
KW11"A_COUNTER = *024 :0ffset to clock A counter 
;AD11-K A/D converter 
AD11_OF FSET = =4 ; Offset to the AD11 from thr KW11 clock CSR. 
AD11_BUF =2 ; AD11 buffer offset from AD11 CSR 
AD11_GO = 3; Go bit 
AD11 “MUX _INCR = *0400 ; Mux incr bit 
ADI1—“CSR-CONS = AD11_GO 5 Initial reer’ value 
sLimit for pion ing ISR 
AD11_LOOP_LIMIT = AD11_MUX_INCR®*<MAX_AD_CHANNEL-1>!AD11_CSR_CONS 
SIDBDEF 3; Definition for 1/0 drivers 
SUCBDEF ; Data structurs 
IODEF 3; 1/0 function codes 
SCINDEF 3; Connect-to-interrupt 
SCRBDEF ; CRB stuff 
SVECDEF 3; more 
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-SBTTL LABIO_CIN_START, Start 1/0 routine 


+ 
LABIO_CIN_START = Starts the KwWl1-K 
Functional description: 
This routine starts the Kwi1l-k 
Rate = 1 Khz 
Repeated interrupt 


Inputs: 
O(R2) = arg count of 4 
4(R2) = Address of the recess buffer 
8(R2) = Address of the P (1/0 request packet) 
1Eths} - Address of the Seoten® s CS 
16(R2) = Address of the UCB (Unit control block) 
Outputs 


The routine must preserve all registers except RO-R2 and R4. 


.PSECT LABIO_CIN 
LABIO_CIN_START: 


MOVL igcray, RO ; Get address of the Kw11 CSR 
CLRY (RO) ; Clear the Clock 
MNE GW ott PRESET,=- ; Preset count buffer 


1_K_BUFFER(RO) 
MOVW eeuiT _USR_CONS+KW11$M_GO,(RO) ; Set the bits for 
3 Repeated interrupt 
3 payereupe Enable 


MOVW #SS$_NORMAL ,RO ; Load a success code into RO. 
RSB ; Return 


SS SSS SSS SSS SSS SSS SSS SS SY 


—— ga Sc 
| 
| 
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-SBTTL LABIO_CIN_INTERRUPT, Interrupt service routine 


3+ 
; LABIO_CIN_INTERRUPT 
: FunctTonal description: 


Inputs: 


O(R2) = arg count of 5 
4(R2) = Address of the process buffer 
PY ) = Address of the AST parameter 
2(R2) = Address of the device's cSR 
16(R2) = Address of the IDB (interrupt dispatch block) 
20(R2) = Address of the UCB (Unit control block) 


Outputs: 
Sets those bits in the AST parameter for those 
channels who had a buffer filled 


© Oe Ge Ge Oe Se Se Se Se Se Se Se Se Se Se Se Se oe 


The routine must preserve all registers except RO-R4 


CIN_BUF_ADD = 4 sAddress of CIN buffer 
ST_PARA = 8 :Offset to AST parmeter address 
CIN“CSR_ADD = 12 Address of CSR 
LABIO_CIN_INT:: 
POSHR #*M<RS,R6> Service device interrupt, save R5,R6 
MOVL CIN_CSR_ADD(R2).R4 sAddress of the KW11 CS 
MOVL CIN_BUF __ADD(R2) ,R5 ;Address of AD_BLOCK, control block 
:for each A/D Channel 
MOVAL DATA_BUFFER_OFF(R5),R1 ;Data Buffers 
MOVAL AD11_OFFSETTR4),R4 sAddress of the AD11 CSR 
MOVW #AD11_CSR_CONS,R6 3AD11 CSR bits, GO bit on 
CLAL @AST_PARMTR2) zZero the AST parameter 
CLRL R3 
AD_LOOP: 
CMPL (R5) ,S*MACTIVE_L zIs this channel active? 
BLSS AD_LOOP_NEXT No, try next channel 


SOBGTR TICS _REMAINING(RS) ,AD_LOOP_NEXT 
;Decr the timer for this channel 
:Br if no conversion required 


MOV R6, (R4) Start conversion, while that's going on 
IF DF KW_HIST >Time nistogren, stored in data buffer 
MOVZWL KQ11_A_COUNTER-AD11_OFFSET(R4),RO ;Get current clock contents 
ADDW #kwiT_PRESET,RO Cale time from intgerrupt 

(R1) CROJ zAdd one to that time bin 


-ENDC 
; While the A/D is converting, the tic counter for this channel, 
; get the offset to the data pointer, and update it. Take appropriate 
; action if we have buffer overflow. 


d 


oo 


~~ 1 
m 6 


10 
LABIOCIN.MAR; 1 16-SEP-1984 17:04:28.64 Page 7 


MOVL TICS_ SAMPLE (RS) ,= ;Reset timer for this channel 
TICS-REMAINING(RS) 

MOVL CUR_ACQ_OFF (RS) ,RO Get index to next data point 

INCL CUR_ACQ_OFF(R5) ;Advance it 

AOBLSS BUFFER _SIZE(R5S),- ;Update current data count 
CUR_BUF _COUNT(R5),- :Br if no buffer overflow 
AD_COOP-DATA 


:Buffer overflowed, reset data pointer, reset buffer pointer 
sincrement acquired buffer count, termimate channel 1/0 if done 


MOVL CUR_BUF_IND(RS) = :Valid data buf available for user 


VALTD_BOF IND (RD) 
MOVL CUR_BOF COUNT(RS),=- ;Number of points in buffer 
VALTD_BOF_ COUNT (RS) 
MULL3 CUR_BOF_IRD(RS),= Offset to next data point 
BUF_SIZE,=- 
UR_ACQ_OFF (RS) 
CLRL CUR_BUF _COUNT(RS) ;Reset data count 
AOBLEQ BUF_COUNT,-= Next buffer index 
UR_BuUF_TND(R5S,1$ 
MOVL Bur IND (RS) ;Wrap-around, reset buffer index 
CLRL  CUR_ACO_OFF(RS) :And buffer offset 
1$: INSV #1,R3,4T,@AST_PARM(R2) ;Set bit in AST parameter word 
AOBLSS BUFFER_COUNT(RS),- tInce buffer count 
BUFFERTACQ(R5S) ,2$ :Done with all buffers? 
TSTL 8 FFER~COUNT (RS) i:1f original count was zero 
BEQL 2 Don't stop 
$ MOVL #INACTIVE_L,(RS) ;Deactivate channel 
; Now, get the data point and store it in the buffer, 
AD_LOOP_DATA: 
1$: TSTB (R4) ;Wait for A/D conversion 


BGEQ 1$ : 
IF NOF KW_HIST Time histogram don't store actual data 
MOVW ADT1_BUF(R4),(R1)CRO] store data point in buffer. 


sALL done with this channel, setup for the next 


AD_LOOP_NEXT: 
ADDL #AD_BLOCK_END,R5 Next channel block 
ADDL #BUFFER_ERD,RI :Next buffer 
ADDW #AD11_MOX_INCR,R6 zInce A/D MUX 
AOBLSS S*#MAR_AD-CHANNEL,R3,- ;Next channel 
AD_LOOP :Br if not done 


zsExit routine - If any buffer overflowed, queue an AST 
VL T_PA 


m0 aAS RM(R2) ,RO il any bit in the AST parameter 

BEQL 1$ zis set we must queue an AST 

MOVL #1,R0 ; 1 means queue the AST, 0 means don't 
1$: a #°M<R5,RO> ; Restore R5,R6 


Pete Ce Se Se Ge ee Se Se Se Se Se Se Se Se Se Se Se Se we 
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LABIO_CIN_CNCL:: 
MOVL 


-SBTTL LABIO_CIN_CANCEL, Cancel 1/0 routine 


+4 
; LABIO_CIN_CANCEL, Cancels an 1/0 operation in progress 
; Functional description: 


This routine turns off the KwW11-k 


; Inputs: 
RS - Addr of the UCB 


; Outputs: 


The routine must preserve all registers except RO-R3. 


CLRW (RO) ; Turn of the KW11 


MOVW #SS$_NORMAL ,RO 3; And return 
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UCBSL_CRB(RS) ,R ; Get Address of the CRB 
MOVL CRBSL~ cINTDoveESt 1DB(RO) ,RO tAddress of the IDB 
MOVL 1DBSL- “CSR(RO), : Get addr of Kw11 


2 | 
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-SBTTL LABIO_CIN_END, End of Module 


3+ 
; Label that marks the end of the module 


LABIO_CIN_END: ; Last location in module 
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-SBTTL AD CIN_SETUP Set-up routine for LABIO connect-to-interrupt 


3+ 

; This routine issues the Q10 to connect to the AD11/KW11 interrupts. 

; It_ takes care of the internals associated with the connect-to-interrupt 

; Q10. Input parameters the VMS channel and the AST service routine address. 
; The connect-to-interrupt Q10 condition code is returned. 


.PSECT AD_CIN_SETUP 
AD_CIN_SETUP:: 

MOVL BcAP) ,USER_AST :Get the user AST routine addr 
AD_CIN_QIO: 


$Q10_S CHAN=@4(AP),- ; Channel 
FUNC=#10$ CONINTWRITE,= sAllow writing to the data buffer 


10SB=AD_ CT SB,- 31/0 status Block 
Pi=AD_CIN BOF DESC,-  :Buffer descriptor 
gre Ab CIR. TRY,= sEntry List 
PS=#AD_CIN_MASK,= :Status bits,etc 
P4=#AD_CIN_AST,= sAST service routine 
P6=410 ;preallocate some AST control blocks 
RET Return to caller 
AD_CIN_BUF DESC: :Buffer descriptor for CIN 
.LONG LABIO_CIN_END-AD_BLOCK ;Size of buffer and CIN handler 
LONG AD_BLOCK zAddress of buffer 
AD_CIN_ENTRY: 
-LONG 0 No init code 
-LONG LABIO_CIN_START-AD_BLOCK;Start code 
-LONG LABIO-CIN“INT-AD_BCOCK ;Interrupt service routine 
-LONG LABIO-CIN-CNCL-AB_BLOCK ;1/0 cancel routine 
AD_CIN_1OSB: 
-LONG 0,0 ; 1/0 Status Block 


; Control mask 
AD_CIN_MASK = CINSM_REPEAT!CINSM_START!CINSM_ISR!CINSM_CANCEL 


AD_CIN_AST 


This AST routine calls the user AST routine. The user routine 
can not be called directly pec ouse the AST parameter itself 

not its address is returned via the connect-to-interrupt routine. 
; This routine simply calls the user routine with the ADDRESS of 

; the AST parameter. 


AD_CIN_AST:: 
PUSHAL 4 (AP) ;Get the AST parameter addr 
ces #1, QUSER_AST Call the USER routine 


sc 
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USER_AST: 


~END 
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z;Addr of the user AST routine 


VAX/VMS V4.0 


0157 AH-BT13A-SE 


